<script>on mouseUplock screenput the second word of the clickLine into theLineselect line theLine of bg fld "History"put item 1 of the selectedText into myIDput item 2 of the selectedText into myStackvisual effect iris opengo to cd id myID of stack myStackunlock screenend mouseUp</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>101</left>
<top>265</top>
<right>162</right>
<bottom>289</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Paths</name>
<script>on mouseUpset the hilite of me to trueset the hilite of bg btn "History" to falselock screenhide bg fld "History"hide bg fld "History Title"show bg fld "Path Title"show bg fld "Path"show bg fld "MetaInformation"unlock screen with iris closeend mouseUp</script>
</part>
<part>
<id>5</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>184</left>
<top>266</top>
<right>262</right>
<bottom>289</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>history</name>
<script>on mouseUpset the hilite of me to trueset the hilite of bg btn "Paths" to falselock screenhide bg fld "Path Title"hide bg fld "Path"hide bg fld "MetaInformation"show bg fld "History"show bg fld "History Title"unlock screen with iris openend mouseUp</script>
</part>
<part>
<id>7</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>36</left>
<top>40</top>
<right>420</right>
<bottom>60</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Times</font>
<textSize>14</textSize>
<textStyle>bold</textStyle>
<textHeight>18</textHeight>
<name>history title</name>
<script></script>
</part>
<part>
<id>8</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>301</left>
<top>266</top>
<right>436</right>
<bottom>289</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>History to Path</name>
<script>on mouseUpask "What is the Threshold value (seconds) for adding a node to the path?" with "60"if it is empty then exit mouseUplock screenput it into Thresholdput bg fld "History" into HistoryPathPathFromHistory HistoryPath, Thresholdunlock screenend mouseUp</script>
</part>
<part>
<id>6</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>36</left>
<top>41</top>
<right>420</right>
<bottom>61</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Times</font>
<textSize>14</textSize>
<textStyle>bold</textStyle>
<textHeight>18</textHeight>
<name>path title</name>
<script></script>
</part>
<part>
<id>10</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>36</left>
<top>18</top>
<right>420</right>
<bottom>42</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Helvetica</font>
<textSize>18</textSize>
<textStyle>bold</textStyle>
<textHeight>24</textHeight>
<name>Path Name</name>
<script></script>
</part>
<part>
<id>11</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>36</left>
<top>267</top>
<right>58</right>
<bottom>289</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>16560</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>next</name>
<script>on mouseUpvisual effect wipe leftgo next cd of this bgend mouseUp</script>
</part>
<part>
<id>12</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>11</left>
<top>268</top>
<right>32</right>
<bottom>289</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>15420</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>prev</name>
<script>on mouseUpvisual effect wipe rightgo prev cd of this bgend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>6</id>
<text>CardID, Stack Name Meta-information</text>
</content>
<content>
<layer>background</layer>
<id>7</id>
<text>Card ID, Stack Name, Time, Duration</text>
</content>
<name>Path</name>
<script>on opencardput the short name of this cd into bg fld "Path Name"-- if bg fld "Path" is visible then-- set the hilite of bg btn "History" to false-- set the hilite of bg btn "Paths" to true-- end ifend opencardon PathFromHistory History, Threshold-- This create a new path from some history list.-- The determining factor in being added to the path-- is the amount of time that the node in the history was visited.-- The value that is the cut off point is the variable Threshold.-- The History data structure is in the form:-- Card ID, Stack name, time of visit, length of visit-- So the length of visit is the determining factorput empty into NewPathrepeat with x = 1 to the number of lines of Historyset cursor to busyif item 4 of line x of History >= Threshold thenput item 1 of line x of History & "," & item 2 of line x of History & return after NewPathend ifend repeatif NewPath is empty thenanswer "No nodes in path. Try a lower threshold value."elseask "Name this new path." with "New Path"if the result = "Cancel" or it is empty then exit PathFromHistoryput it into myPathNamedoMenu "New Card"set the name of this card to myPathNameput NewPath into bg fld "Path"put "endNode" & return into myInforepeat with x = 1 to the number of lines of NewPathset cursor to busyput "endNode" & return after myInfoend repeatput myInfo into bg fld "metainformation"end ifend PathFromHistory</script>
